unit Cons_Mensagem;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Formulario_Padrao_Consulta, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls,
  TFlatButtonUnit;

type
  TFrmCons_Mensagem = class(TFrmConsulta)
    DBGrid: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BtnFecharClick(Sender: TObject);
    procedure DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  public
    { Public declarations }
  end;

var
  FrmCons_Mensagem: TFrmCons_Mensagem;
  xcod_mensagem: string;

implementation

uses dm, db, dbtables, clsMensagem, biblio;

var
  mensagem: TMensagem;
  tq: TQuery;
  tds: TDataSource;

{$R *.DFM}

procedure TFrmCons_Mensagem.FormCreate(Sender: TObject);
begin
  inherited;
  mensagem := TMensagem.Create;
  tq := TQuery.Create(self);
  tds := TDataSource.Create(self);
end;

procedure TFrmCons_Mensagem.FormDestroy(Sender: TObject);
begin
  inherited;
  mensagem.free;
  tq.free;
  tds.free;
end;

procedure TFrmCons_Mensagem.FormActivate(Sender: TObject);
begin
  inherited;
  tq.databasename := dmint.db.databasename;
  mensagem.Consultar(tq);
  tds.dataset := tq;
  dbgrid.datasource := tds;
end;

procedure TFrmCons_Mensagem.BtnFecharClick(Sender: TObject);
begin
  xcod_mensagem := tq.fieldbyname('Cod_Mensagem').asstring;
  inherited;
end;

procedure TFrmCons_Mensagem.DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  inherited;
  if DataCol = 1 then
    Dbgrid.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, copy(tq.fieldbyname('Texto').asstring + repl(' ', 100), 1, 100));
end;

end.
